www.gusucode.com > AspFaq在线帮助系统 V1.0 > AspFaq在线帮助系统 V1.0\code\admin\Index.asp
<!--#include file="../Inc/Config.asp"--><%
if request.Form.count>0 then
dim Admin_Login,Admin_Pass
Admin_Login=HTMLEncode(trim(request.Form("Admin_Login")))
Admin_Pass=HTMLEncode(trim(request.Form("Admin_Pass")))
call CheckString(Admin_Login,20,1,"请输入管理员用户名！","管理员用户名过长，请小于20个字符！")
call CheckString(Admin_Pass,20,1,"请输入管理员密码！","管理员密码过长，请小于20个字符！")
if i=1 then
call pagend()
response.End()
end if
application.Lock()
sqlstr="select * from [Admin] where Admin_Login='"&Admin_Login&"' and Admin_Pass='"&Md5(Md5(Admin_Pass,32),16)&"'"
rs.open sqlstr,conn,1,3
if not rs.eof then
rs("Admin_Logincount")=rs("Admin_Logincount")+1
rs("Admin_Logintime")=now()
rs("Admin_Loginip")=Request.ServerVariables("REMOTE_ADDR")
rs.update
session("Admin_Id")=rs("Admin_Id")
session("Admin_Login")=rs("Admin_Login")
session("Admin_Name")=rs("Admin_Name")
sqlstr="insert into [Logins](Logins_Ip,Logins_Type,Logins_Admin) values('"&Request.ServerVariables("REMOTE_ADDR")&"',0,'"&Admin_Login&"')"
conn.execute(sqlstr)
response.Write("管理员登陆成功！")
else
sqlstr="insert into [Logins](Logins_Ip,Logins_Type,Logins_Admin) values('"&Request.ServerVariables("REMOTE_ADDR")&"',1,'"&Admin_Login&"')"
conn.execute(sqlstr)
response.Write("管理员帐号或密码错误！")
end if
application.UnLock()
rs.close
Call Pagend()
response.End()
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>系统登录--<%=Site_Name%></title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link rel="stylesheet" href="Images/Style.css" type="text/css" media="all" />
<script language="javascript" src="../Js/Jquery.js"></script>
<script language="javascript" src="../Js/Form.js"></script>
<script language="javascript" src="../Js/Function.js"></script>
<script language="javascript">
function ChechLogin(){
if(document.Logins.Admin_Login.value==""){
alert("请填写用户名！");
document.Logins.Admin_Login.focus();
return false;
}
if(document.Logins.Admin_Pass.value==""){
alert("请填写密码！");
document.Logins.Admin_Pass.focus();
return false;
}
Form_Send1("Index.asp","登录成功！","Main.asp","Logins");
}
</script>
</head>
<body style="background-color:#FFF;">
<div id="loginbar"></div>
<div id="login">
<div id="login-left"></div>
<div id="login-right">
<form action="Index.asp" method="post" name="Logins" id="Logins" onsubmit="return false;">
<p><label for="Admin_Login">用户名：</label>
<br /><input type="text" name="Admin_Login" id="Admin_Login" style="width: 186px;height: 18px;"/>
</p>
<p><label for="Admin_Pass">密码：</label>
<br /><input type="password" name="Admin_Pass" id="Admin_Pass" style="width: 186px;height: 18px;"/>
</p>
<p style="padding-left:50px;padding-bottom:45px;"><input type="submit" class="bt2" value=" 确 认 " onclick="ChechLogin();" style="width: 80px;"/></p>
</form>
</div>
</div>
<div id="Bottom">
<p>版权所有 <a href="http://aspfaq.cnzzwin.com/" target="_blank">AspFaq</a></p>
</div>
<!--#include file="Show_Go.asp"-->
</body>
</html>
<%Call Pagend()%>